#!/usr/bin/perl -w

use Roman;
$text = 15;

@numbers = (1..100);

@numbers = map  { $_ <= $text ? roman($_) : ($_ -= $text) } @numbers;

print "@numbers";