perl print double digit

$tapenum= sprintf("%02d",$tapenum);