#!/usr/bin/perl -w
print "I was going to output a long list of strings.\n";
print "Please provide the string for me : ";
$duplicate = <STDIN>;
print "Please provide the length of the list for me : ";
chomp($times = <STDIN>);
print $duplicate x $times;