#!/usr/bin/perl -w
use strict;

my $initial_file   = 'Main';
my $ultimate_level = 2;

sub jak_daxter_recursor_legacy {
    my ($file, $level) = @_;
    
    open (FH, $file) or die "Cannot open $file: $!";
    my $contents = <FH>;
    
    my @filestoprocess = split (/,/, $contents);
    for my $file (@filestoprocess) {
        print "$file\n";
        jak_daxter_recursor_legacy ($file, $level+1)
            unless ($level == $ultimate_level);
    }
}

jak_daxter_recursor_legacy ($initial_file, 1);

##</code><code>##

sub1
sub12
sub13
sub17
sub2
sub21
sub22