@sun = ('スン','スーン','( ゜Д゜)ハッ');

print "何回スンスンしまっか？>";
$un= <STDIN>;

for ($suun=0; $sunn<$un; $count++){
　　print "$sun[0]$sun[0]$sun[1]$sun[2]\n";
}