@single = 1..10;
@treble = map { $_ * 3 } @single;
foreach (@treble) {
        print $_." ";
}
print "\n";