Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
printf "%10s\t=>%10s\n", "keys", "values";
printf "%10s\t=>%10s\n" x @ky, @ky, @vals;

Select or download this

       keys           =>           values
    barney          =>             betty
...
    rubble           =>          rubble
                         =>      flintstone