gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

sub hoge {
    my ($func, @args) = @_;
    $func->(@args);
}

hoge(sub {
         print "$_\n" for @_;
     }, 'fuga', 'piyo');

__END__

↓こういうインデントになってほしい

hoge(sub {
    print "$_\n" for @_;
}, 'fuga', 'piyo');