C:\Old_Data\perlp>perl t7.pl
$VAR1 = {
          'serial3' => [
                         [
                           'two',
                           'end',
                           'serial3'
                         ]
                       ],
          'serial1' => [
                         [
                           'foo',
                           'bar',
                           'serial1'
                         ]
                       ],
          'serial2' => [
                         [
                           'who',
                           'now',
                           'serial2'
                         ],
                         [
                           'one',
                           'more',
                           'serial2'
                         ]
                       ]
        };
who now serial2
one more serial2