Select Code to Download

use strict;
use Data::Dumper;
...
__DATA__
3000|Melbourne|VIC
2000|Sydney|NSW

$VAR1 = {
          '3000' => [
...
                      'NSW'
                    ]
        };