use Number::Fraction;

my @dimensions = ( 320, 240 );
my $aspect = Number::Fraction->new( @dimensions );

print join('x', @dimensions);
print $aspect;
print $aspect->to_num;
[download]

320x240
4/3
1.33333333333333
[download]