use strict;
use warnings;

sub fireball {
  my $bias = shift;
  print "Bias: $bias\n";
}

fireball(2);