my @keys = keys %hash;
foreach my $i (0 .. $#keys)
{
    my $element = $keys[$i];

    if ($i == $#keys)
    {
        #do this
    }
    else
    {
        #do that
    }
}