String Perl

#!/usr/bin/perl -w
$s1 = "Value";
$s1 = $s1 x 10;
print "$s1\n";