#!/usr/bin/perl

while (<>) {
    ($num,$name) = split;
    $iname = uc($num) . ".JPG";
    $oname = $name . "-big.jpg";
    `convert -rotate 270 $iname $oname`;
}