例えば関数をプロットするような関数とか？

sub plot ($$$$){
my ($fn, $min, $max, $step) = @_;
for ($min; $min <= $max; $min += $step){
for (my $num = &$fn($min); $num > 0; --$num){
print '*';
}
print "\n";
}
}

&plot(
sub{
my $x = $_[0];
return $x * $x;
},
1, 5, 2 #1〜5まで2刻みで無名関数にデータを渡してプロットさせる
);