while(<ACCOUNTS>)
        {
            my %account = split(/::/, $_);
            if( $account{"MASTER"} eq $_[0] )
            {
                foreach my $key(keys(%account))
                {
                    #do something here
                }
                last;
            }
        }