Select Code to Download

$final_fragments{$final_fragment2} = $third_fragments[scalar @third_fr
+agments - 1];

$final_fragments{$final_fragment2} = $third_fragments[@third_fragments
+ - 1];

$final_fragments{$final_fragment2} = $third_fragments[$#third_fragment
+s];

$final_fragments{$final_fragment2} = $third_fragments[-1];

roboticus@sparky:~$ cat t.pl
#!/usr/bin/perl
...
11
9
roboticus@sparky:~$