Better:

sub whether_subroutine()
{
    my @results;
    if(  ! eval { @results= weather_subroutine(@_); 1 }  ) {
        warn $@;
        return;
    }
    return @results;
}
[download]