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

sub sub_A {
  print "sub_A\n";
}

sub sub_B {
  print "sub_B\n";
}

sub_A
sub_B;

##</code><code>##

sub_B
sub_A

##</code><code>##

sub_A
sub_B