Select Code to Download

%presence = ( 'hi'  => [
                        { from => 65, to => 85 },
...
                        { from => 33, to => 53 }
                       ],
             );

%presence = ( 'hi'  => [
                        [65, 85],
...
                        [33, 53]                             
                       ],
             );

use constant FROM => 0;
use constant TO => 1;

my %presence;
while(<INPUT>) {
...
    # or, with arrays:
    # push @{$presence{$name}}, [ $from, $to ];
}