#!/usr/bin/perl -w

use Roman;
$tekst = 15;

@liczby = (1..100);

@liczby = map  { $_ <= $tekst ? roman($_) : ($_ -= $tekst) } @liczby;

print "@liczby";

