#!/usr/bin/perl -w -d:DProf

use strict;

sub PROTOTYPED_WITH_SPACE    ( ) { 1 }
sub PROTOTYPED_WITHOUT_SPACE ()  { 2 }
sub NOT_PROTOTYPED               { 3 }

for (my $i = 0; $i < 50_000; $i++) {
  my $a = PROTOTYPED_WITH_SPACE;
}

for (my $i = 0; $i < 50_000; $i++) {
  my $a = PROTOTYPED_WITHOUT_SPACE;
}

for (my $i = 0; $i < 50_000; $i++) {
  my $a = NOT_PROTOTYPED;
}
for (my $i = 0; $i < 50_000; $i++) {
  my $a = PROTOTYPED_WITH_SPACE;
}

for (my $i = 0; $i < 50_000; $i++) {
  my $a = PROTOTYPED_WITHOUT_SPACE;
}

for (my $i = 0; $i < 50_000; $i++) {
  my $a = NOT_PROTOTYPED;
}

exit;