Select Code to Download

print MERGE pack('A20A180A200A350',@vars);

#!/usr/local/bin/perl

...
    }

}

Benchmark: timing 10000 iterations of pack, printf...
      pack: 21 wallclock secs (10.10 usr +  9.55 sys = 19.65 CPU) @ 50
+8.91/s (n=10000)
...
    printf: 23 wallclock secs (11.88 usr + 10.72 sys = 22.60 CPU) @ 44
+2.48/s (n=10000)