my %CURRENT = (PLATFORM_FIELD => ...
my $hashref = \%CURRENT;
...
$frm_current->BrowseEntry(
    -variable   => \$hashref->{PLATFORM_FIELD},
    -width      => 11,
    -font       => $font,
    -background => $bgColor,
    -state      => 'normal',
    -choices    => [@PLATFORM_LIST]
),