#!/usr/bin/perl

$a = <STDIN>;
$b = <STDIN>;

print "$a+$b\n";
print "ops! $a+$b=",$a+$b,"\n";

print "I know..\n";
chop $a;
chomp $b;
print "attaboy! $a+$b=",$a+$b,"\n";

@a = (1,'a',18);

print "This is no scalar:",@a,"\n";
print "This  one is fine: $a[0]\n";

%a = (first => 1, 
      then => 18.9);

print "OK! This is a hash: ",%a,"\n";
print $a{'first'},"\n";
