$ xxd kimmy1.pl
0000000: 2321 2f75 7372 2f62 696e 2f70 6572 6c0a  #!/usr/bin/perl.
0000010: 2320 7669 6d3a 2073 6574 2074 733d 3420  # vim: set ts=4
0000020: 7377 3d34 2065 7420 7374 613a 0a75 7365  sw=4 et sta:.use
0000030: 2073 7472 6963 743b 0a75 7365 2077 6172   strict;.use war
0000040: 6e69 6e67 733b 0a0a 6d79 2040 6172 7261  nings;..my @arra
0000050: 793b 0a0a 7768 696c 6520 2820 3c3e 2029  y;..while ( <> )
0000060: 207b 0a20 2020 2063 686f 6d70 3b0a 2020   {.    chomp;.
0000070: 2020 7075 7368 2040 6172 7261 792c 205b    push @array, [
0000080: 2073 706c 6974 202f 2c2f 2c20 245f 205d   split /,/, $_ ]
0000090: 3b0a 7d0a 0a6d 7920 2464 6174 6120 3d20  ;.}..my $data =
00000a0: 5c40 6172 7261 793b 0a0a 7072 696e 7420  \@array;..print
00000b0: 2464 6174 612d 3e5b 305d 5b30 5d2c 2022  $data->[0][0], "
00000c0: 5c6e 223b 0a0a 0a                        \n";...