print "\nm1: $m[$p]\n";
$m[$p]+=3;
print "p1: $p\n";
print "\nm2: $m[$p]\n";
print "\nAt the beginning2\n";
for $i (0..@m) {
print "m${i}: $m[$i]\n";
}