codeyard, Perl - rextester

Language: Layout:

@rhymes = (1, 2, 'Buckle','my','shoe');
@matrix3 = qw/Everything that has a beginning/;

print $rhymes[2]."\n";
print $matrix3[4]."\n\n";

print "\n-+-+-+-+-+-+-+-+\n";

$mission = "fast";       
$impossible = "furious";
$str = $mission." and ".$impossible;
$num = 5 + 3;                  
$mul = 4 * 5;                   
$mix = $str ."  ". $num;             
print "str = $str\n";
print "num = $num\n";
print "mul = $mul\n";
print "mix = $mix\n";

print "\n-+-+-+-+-+-+-+-+\n";

%data = ('hunt', 2100, 'benji', 54, 'faust', 13);

print "\$data{'hunt'} = $data{'hunt'}\n";
print "\$data{'benji'} = $data{'benji'}\n";
print "\$data{'faust'} = $data{'faust'}\n";

print "\n-+-+-+-+-+-+-+-+\n";

@jokers = ("harry","ron","hermione");
@cartoons = ("chulbul","phunsuk wangdoo","pa dungu");

print "\$jokers[1] = $jokers[1]\n";
print "\$cartoons[2] = $cartoons[2]\n";

print "\n-+-+-+-+-+-+-+-+\n";

$var = "This is string scalar!";
$quote = 'Single quote - $var';
$double = "Double quote - $var";

print $var;
print "\nThis is quote inside quotes: $quote\n";
print "\nHere we go double : $double\n\n\n\n";

[ + ] Show input
Absolute running time: 0.07 sec, cpu time: 0.02 sec, memory peak: 3 Mb, absolute service time: 0,08 sec