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

my $file = 'somefile.txt';

my @args = ("sort", $file);

system(@args) == 0 or die "sytem @args failed: $?"; 

##</code><code>##

 my @args("sort" "somefile.txt" "somefile2.txt");
system(@args) == 0 or die "system @args failed: $?";