#!/usr/bin/perl -l

use strict;
use warnings;

{
    package Foo;
    sub bar {};
}

foreach my $type ( qw<SCALAR ARRAY HASH CODE IO FORMAT> ) {
    print $type if defined *Foo::bar{$type};
}