my%hash=map{$_,[map{shift@$_}\@val1,\@val2,\@val3]}@keys;


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/