- or download this
use strict;
use warnings;
...
sub hi {
print "hello World";
}
- or download this
A => Scalar: 100
B => Scalar: 200
C => Array: first, second, third
D => Scalar: CODE(0x21bdf50)
E => Scalar: MainWindow=HASH(0x21d97ac)
- or download this
elsif (ref($hash{$_})) {
print "Unknown ref: $hash{$_}";
- or download this
A => Scalar: 100
B => Scalar: 200
C => Array: first, second, third
D => Unknown ref: CODE(0x21be538)
E => Unknown ref: MainWindow=HASH(0x21d9e38)