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

my @files = <*.jpg *.jpeg somedir/*.jpg>;

my @sorted = sort @files;

print "@sorted\n";
[download]