use v5.30.0; my $str = "ABC to Z"; my @ary = (1,2,3); my %hash = ( a => 1, b => 2); sub code { "hello!" } open(my $fh, '<', "/dev/null") or die "Could not open /dev/null for reading"; foreach my $ref(\$str, \@ary, \%hash, \&code, qr/[A-Z]/, \*str, \$fh) { my $rtype = ref $ref; if ($rtype eq "SCALAR") { say qq($rtype: $$ref ) } elsif ($rtype eq "ARRAY") { say qq($rtype: @$ref ) } elsif ($rtype eq "