@mak=qw(h1 h3 h4);   #but also@mak=qw(h1 h2); etc

@h1=qw(aaa1 1256 fff);          
@h2=qw(aaa2 3276 ggg);          
@h3=qw(aaa3 4860 hhh);          
@h4=qw(aaa4 6669 iii);

foreach $zas(@mak){&scanobj(@$zas)}