Select Code to Download

  my $location = $table[i]->[0]; # missing $ on i
  my $room = $table[i]->[1];

  my $location = $table->[$i][0];
  my $room     = $table->[$i][1];

#!/usr/bin/perl
use strict;
...
  $hdata{$location} = $status;    
}
pp \%hdata;