Considering the OP expects the answer 32, the only logical interpretation of the format is %m%d%y.

use Time::Piece;
print 'Time::Piece'->strptime("080614", "%m%d%y")->week, "\n";
[download]

Output:

32
[download]