Lori, actually you need to declare the variables outside of the subroutine with my and then you can use them inside it. You'd need something like my($one, $two, $three, $four, $five); before you call the subroutine, then drop the "my"'s from inside the subroutine.

Another option would be to have the variables exported by creating your own package that gets the variables and putting use myvariables; at the beginning of your code, but that would require more work (although it might be "The Right Way"™ to do it).