my $back = 1;

if ($back =~ /HASH/){
    print "Das ist eine Hashreferenz, der Inhalt = $back->{'text'}\n"
}
else {
    print "Das ist eine normale Variable, der Inhalt = $back\n"
}


my $back = {text => 'b'};

if ($back =~ /HASH/){
    print "Das ist eine Hashreferenz, der Inhalt = $back->{'text'}\n"
}
else {
    print "Das ist eine normale Variable, der Inhalt = $back\n"
}