#!/usr/bin/perl

use strict;

sub a {
  my $fish = 5;
  print "Hello";
  b();
  print "I like $fish\n";
}

sub b {
  my $goo = 23;
  print " world\n";
  print "goo $goo\n";
}

a();