$sequence = 1234567890;

my( $frame1, $frame2, $frame3 );

tie $frame1, 'Tie::Scalar::Substring', \$sequence, 0;
tie $frame2, 'Tie::Scalar::Substring', \$sequence, 1;
tie $frame3, 'Tie::Scalar::Substring', \$sequence, 2;