Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        $record{$1} = $2;
    }
}

$VAR1 = [
          {
...
            'room no' => ''
          }
        ];