Select Code to Download

my $function_ref = my_closure($stuff);
for ( my $data = $function_ref->() ) {
#   do things
}

for ( qw{ NS MX TXT HINFO SPF SRV A CNAME PTR } ) {
    if ( exists $dns_records{$_} ) {
...
    return sub { $a <=> $b } if ( uc($type) eq "PTR" );
    return sub { $a cmp $b };
}

Array found where operator expected at ./sample.pl line 5, at end of l
+ine
        (Missing operator before ?)