sub foo{
my %args = ( message => 0, error => 0);
my $msg;
my $var1 = 0

if ($var = 0) {
$msg = "var 0";
return { error =>0, message=$msg }
}
else{
$msg = "not var 0"
return { error =>1, message=$msg }
}