use strict;
#use warnings;

Del_Home_Dir
(
    one => 1,
    two => 2,
);

sub Del_Home_Dir 
{ 
    print "Remove::Del_Home_Dir() sub \n"; 
    my (%delete_acct) = (@_); 
    my $tenv; 
    DEL_ENV: foreach $tenv (sort keys %delete_acct) 
    {      
        DEL_PLATFORM: foreach my $tplatform (sort keys %{$delete_acct{$tenv}}) 
        { 
            print "TPLATFORM: $tplatform \n"; 
        }
    }
}

Remove::Del_Home_Dir() sub 
Can't use string ("1") as a HASH ref while "strict refs" in use at line 17.