use Data::Dumper;
$k = &Dumper(@somearray);