Select Code to Download

#!/usr/bin/env perl

...
# For testing only
use Data::Dump;
dd \%parsed;

$ cat pm_1200636_text.txt
name    Brian
...
device cell   2009
tag   yes
tag    1

{
  Andrew => { ipad => [2009] },
  Brian  => { ipad => [2001, 2001, 2001] },
  ryan   => { cell => [2009], ipad => [2005] },
}