Someone

[tpr@tuli cat test.pl; echo; perl test.pl 'hakemisto;asdf;tiedosto;sisalto'; tree -f hakemisto; cat hakemisto/tiedosto; echo
use Data::Dumper;
use strict;
use warnings;

sub process {
    my($string) = @_;
    my($dir, $as, $file, $value) = split /;/, $string;
    mkdir $dir;
    open(my $fp, ">${dir}/${file}");
    print $fp $value;
}

process($ARGV[0]);
hakemisto
└── hakemisto/tiedosto

0 directories, 1 file
sisalto