sub square {
    $_*$_
}

@list = (1,2,3);
@list2 = map { square $_ } @list;

print @list2;

