use Nineweight; tie ($fly, Nineweight); while (!$fish) { cast; if($arms == 'sore') { rest(5); cast; } }