foreach $x (@x) {
                  printf "%7d",$x;
                                       }

             ###############END OF FILE###########
END {
            foreach $y(@y) {
                               printf "%7s",$y;
                                }
                   } 
}