for (my $x=0;$x<10000;$x++) {    
    &mysub(\@x_axis, \@{$a_hash{abc}});
    print ".";
}